ifort /fp:precise /fp:source /Ot /G7 sphera_2D.f90
pause

